          SUBROUTINE (PASSER)
** Version# 4 - 10/04/1999 - 12:18pm - EJO - develop

          OPEN 'DDE.AGENTS' TO DDEFILE ELSE PRINT BELL:; RETURN

          SCREEN
*-------------------------------------------------------------------------*
START:    CLEAR.SCREEN
          MENU.CLEAR

          IF PASSER<1,1>#'' THEN
             GRP.ID = PASSER<1,1>
             PRINT @(16,1):GRP.ID               "L#5"
          END ELSE
INGRP:       INP GRP.ID,16,1,5,'MCU',V_'DDE.AGENTS,1,New'
             IF QUIT THEN GOTO FINISH
             END
          IF GRP.ID='' THEN PRINT BELL:; GOTO INGRP
          IF GRP.ID = 'ALL' THEN
             ERR.MESS 3,3,BELL:"ID Can Not be ALL!"
             GOTO INGRP
          END
          GOSUB RECALLIT

          MENU.LOAD 2,7,7,1,"D"
*-------------------------------------------------------------------------*
INDESC:   INP PGRP(1),16,2,25
          IF QUIT THEN GOTO FILEIT
          ON MOVE+1 GOTO INDESC,INDESC,INDESC,INDESC
*-------------------------------------------------------------------------*
INLINE:   INP PGRP(2),16,3,25,V_'S:VERF.PGM.NAME'
          IF QUIT THEN GOTO FILEIT
          ON MOVE+1 GOTO INLINE,INLINE,INDESC,INLINE
*-------------------------------------------------------------------------*
INCMBO:   INPWP PGRP(3),16,4,63,2,999
          IF QUIT THEN GOTO FILEIT
          ON MOVE+1 GOTO INCMBO,INCMBO,INLINE,INCMBO,INCMBO,INCMBO
*-------------------------------------------------------------------------*
SUBS:     ON OPTION GOTO DELETEIT
*-------------------------------------------------------------------------*
RECALLIT: MATREAD PGRP FROM DDEFILE,GRP.ID THEN
             MATBUILD OLD FROM PGRP
          END ELSE
             PRINT @(3,0):BLINK$:'New Item':NORM$
             MAT PGRP = ''
             OLD = ''
             END

          GOSUB DISPLAY
          RETURN
*-------------------------------------------------------------------------*
DELETEIT: CONFIRM.DEL SURE
          IF NOT(SURE) THEN RETURN
          DELETE DDEFILE,GRP.ID
          RETURN TO START
*-------------------------------------------------------------------------*
DISPLAY:  PRINT @(16,2):PGRP(1)            "L#25"
          PRINT @(16,3):PGRP(2)            "L#25"
          PRINT @(16,4):PGRP(3)<1,1>       "L#63"
          PRINT @(16,5):PGRP(3)<1,2>       "L#63"
          RETURN
*-------------------------------------------------------------------------*
FILEIT:   IF F12 THEN
             CONFIRM.ABORT SURE
             IF NOT(SURE) THEN GOTO INDESC
          END ELSE
             IF PGRP(1)='' THEN PRINT BELL:; GOTO INLINE
             CHECK.UPDATE DDEFILE,GRP.ID,OLD,REDO.MSG
             IF REDO.MSG THEN
                GOSUB RECALLIT
                MESS 5,5,REDO.MSG
                GOTO INDESC
                END
             MATWRITE PGRP ON DDEFILE,GRP.ID
             END
          IF PASSER='' THEN GOTO START ELSE PASSER=GRP.ID
          GOTO FINISH
*-------------------------------------------------------------------------*
FINISH:   WINDOW.CLOSE
          QUIT=0
          RETURN
!EJO~10/04/99~12:18
